  }0  _   k820309    �          2021.12.0   �("g                                                                                                          
       B:\1.) Business Cycles and Insurance - Paper\JPE Macro - Final Revisions\Computation\Final Submission\BCI_SS\BCI_SS\Fortran_TB.f90 FORTRAN_TB                      @                                      
                                                                 
                
                 -C��6?        0.0001                                                                                                            11                                                                                                                                                                         
                
                       �?        1.0                                                          
                
                                 0.0                                                          
                
                 ���S��?        0.989                                                          
                
                        @        2.0                                                      	                                          B                                                                     
                                       2               50                                                                                             �               250                                                                                                            2#         @                                                                #X_MIN    #X_MAX    #NX    #XGRID              
                                               
                
                                               
                
  @                                                            D                                                             
     p          5 � p        r        5 � p        r                      #         @                                                                #X_MIN    #X_MAX    #NX    #XGRID              
                                               
                
                                               
                
  @                                                            D @                                                           
     p          5 � p        r        5 � p        r                      #         @                                                                #XGRID    #XVAL    #X_LOW    #X_HIGH    #NX    #IX    #OMEGA_X             
                                                              
    p          5 � p        r        5 � p        r                                
                                               
                
                                                                
                                                                
                                                                D                                                                D                                              
       #         @                                                                #RHO     #SIGMA_ETA !   #NE "   #PI_E #   #XGRID $             
                                                
                
                                          !     
                
                                           "                    D                                         #                    
       p        5 � p        r "   p          5 � p        r "     5 � p        r "       5 � p        r "     5 � p        r "                              D                                         $                    
     p          5 � p        r "       5 � p        r "                     #         @                                            %                    #XVAL &   #MU '   #SIGMA (   #DIST )             
  @                                       &     
                
  @                                       '     
                
  @                                       (     
                D                                         )     
       #         @                                            *                    #DGRID +   #MU -   #SIGMA .   #ND ,   #DIST /            
                                          +                    
    p          5 � p        r ,       5 � p        r ,                               
                                          -     
                
                                          .     
                
                                           ,                    D                                         /                    
     p          5 � p        r ,       5 � p        r ,                     #         @                                            0                    #NX 1   #PI_X 2   #PI_ERG 3             
  @                                        1                    
                                          2                    
      p        5 � p        r 1   p          5 � p        r 1     5 � p        r 1       5 � p        r 1     5 � p        r 1                              D                                         3                    
     p          5 � p        r 1       5 � p        r 1                     #         @                                            4                    #N 5   #M 6   #X 7   #XT 8             
                                           5                     
                                           6                    
                                          7                    
      p        5 � p        r 5   p          5 � p        r 5     5 � p        r 6       5 � p        r 5     5 � p        r 6                              D                                         8                    
       p        5 � p        r 6   p          5 � p        r 6     5 � p        r 5       5 � p        r 6     5 � p        r 5                     #         @                                            9                    #N :   #A ;   #A_INV <             
                                           :                    
                                          ;                    
      p        5 � p        r :   p          5 � p        r :     5 � p        r :       5 � p        r :     5 � p        r :                              D                                         <                    
       p        5 � p        r :   p          5 � p        r :     5 � p        r :       5 � p        r :     5 � p        r :                     #         @                                            =                    #N >   #NA ?   #NB @   #A A   #B B   #X C             
                                           >                     
                                           ?                     
                                           @                    
                                          A                    
      p        5 � p        r ?   p          5 � p        r ?     5 � p        r >       5 � p        r ?     5 � p        r >                              
                                          B                    
      p        5 � p        r >   p          5 � p        r >     5 � p        r @       5 � p        r >     5 � p        r @                              D                                         C                    
       p        5 � p        r ?   p          5 � p        r ?     5 � p        r @       5 � p        r ?     5 � p        r @                     #         @                                            D                    #N E   #LAMBDA F   #X_VEC G   #X_TILDE H             
  @                                        E                     
                                          F     
               
  @                                       G                    
    p          5 � p        r E       5 � p        r E                              D                                         H                    
      p          5 � p        r E       5 � p        r E                     #         @                                            I                    #N J   #NX K   #Y_VEC L   #X M   #B_VEC N             
  @                                        J                     
  @                                        K                    
  @                                       L                    
 $   p          5 � p        r J       5 � p        r J                              
  @                                       M                    
 %     p        5 � p        r J   p          5 � p        r J     5 � p        r K       5 � p        r J     5 � p        r K                              D @                                       N                    
 &    p          5 � p        r K       5 � p        r K                     #         @                                            O                    #N P   #VECTOR Q   #MEAN R             
  @                                        P                    
                                          Q                    
 +   p          5 � p        r P       5 � p        r P                               D                                         R     
       #         @                                            S                    #N T   #MEAN U   #VECTOR V   #SD W             
  @                                        T                     
                                          U     
               
                                          V                    
 ,   p          5 � p        r T       5 � p        r T                               D @                                       W     
       #         @                                            X                    #N Y   #MEAN_X Z   #MEAN_Y [   #X_VEC \   #Y_VEC ]   #CORR ^             
                                           Y                     
                                          Z     
                
                                          [     
               
                                          \                    
 -   p          5 � p        r Y       5 � p        r Y                              
                                          ]                    
 .   p          5 � p        r Y       5 � p        r Y                               D                                         ^     
          �   �      fn#fn    6  H   J   BCI_PAR "   ~  ~       PRECISION+BCI_PAR    �  z       NE+BCI_PAR    v  x       RP+BCI_PAR    �  {       ONE+BCI_PAR    i  {       ZERO+BCI_PAR    �  }       RHO+BCI_PAR    a  {       SIGMA+BCI_PAR    �  x       NI+BCI_PAR    T  z       ND+BCI_PAR    �  {       NA+BCI_PAR    I  y       NB+BCI_PAR    �  y       LINSPACE    ;  H   a   LINSPACE%X_MIN    �  H   a   LINSPACE%X_MAX    �  H   a   LINSPACE%NX      �   a   LINSPACE%XGRID    �  y       LOGSPACE    H	  H   a   LOGSPACE%X_MIN    �	  H   a   LOGSPACE%X_MAX    �	  H   a   LOGSPACE%NX     
  �   a   LOGSPACE%XGRID    �
  �       INTERPOLATION $   u  �   a   INTERPOLATION%XGRID #   1  H   a   INTERPOLATION%XVAL $   y  H   a   INTERPOLATION%X_LOW %   �  H   a   INTERPOLATION%X_HIGH !   	  H   a   INTERPOLATION%NX !   Q  H   a   INTERPOLATION%IX &   �  H   a   INTERPOLATION%OMEGA_X    �  �       ROUWENHORST     f  H   a   ROUWENHORST%RHO &   �  H   a   ROUWENHORST%SIGMA_ETA    �  H   a   ROUWENHORST%NE !   >  ,  a   ROUWENHORST%PI_E "   j  �   a   ROUWENHORST%XGRID    &  w       NORMALCDF    �  H   a   NORMALCDF%XVAL    �  H   a   NORMALCDF%MU     -  H   a   NORMALCDF%SIGMA    u  H   a   NORMALCDF%DIST    �  �       NORMALDENSITY $   =  �   a   NORMALDENSITY%DGRID !   �  H   a   NORMALDENSITY%MU $   A  H   a   NORMALDENSITY%SIGMA !   �  H   a   NORMALDENSITY%ND #   �  �   a   NORMALDENSITY%DIST    �  n       ERGODIC    �  H   a   ERGODIC%NX    C  ,  a   ERGODIC%PI_X    o  �   a   ERGODIC%PI_ERG !   +  m       MATRIX_TRANSPOSE #   �  H   a   MATRIX_TRANSPOSE%N #   �  H   a   MATRIX_TRANSPOSE%M #   (  ,  a   MATRIX_TRANSPOSE%X $   T  ,  a   MATRIX_TRANSPOSE%XT !   �  i       MATRIX_INVERSION #   �  H   a   MATRIX_INVERSION%N #   1  ,  a   MATRIX_INVERSION%A '   ]  ,  a   MATRIX_INVERSION%A_INV &   �  |       MATRIX_MULTIPLICATION (     H   a   MATRIX_MULTIPLICATION%N )   M  H   a   MATRIX_MULTIPLICATION%NA )   �  H   a   MATRIX_MULTIPLICATION%NB (   �  ,  a   MATRIX_MULTIPLICATION%A (   	!  ,  a   MATRIX_MULTIPLICATION%B (   5"  ,  a   MATRIX_MULTIPLICATION%X    a#  {       HP_FILTER    �#  H   a   HP_FILTER%N !   $$  H   a   HP_FILTER%LAMBDA     l$  �   a   HP_FILTER%X_VEC "   (%  �   a   HP_FILTER%X_TILDE (   �%  |       REGRESSION_COEFFICIENTS *   `&  H   a   REGRESSION_COEFFICIENTS%N +   �&  H   a   REGRESSION_COEFFICIENTS%NX .   �&  �   a   REGRESSION_COEFFICIENTS%Y_VEC *   �'  ,  a   REGRESSION_COEFFICIENTS%X .   �(  �   a   REGRESSION_COEFFICIENTS%B_VEC    �)  m       AVERAGE    *  H   a   AVERAGE%N    I*  �   a   AVERAGE%VECTOR    +  H   a   AVERAGE%MEAN #   M+  u       STANDARD_DEVIATION %   �+  H   a   STANDARD_DEVIATION%N (   
,  H   a   STANDARD_DEVIATION%MEAN *   R,  �   a   STANDARD_DEVIATION%VECTOR &   -  H   a   STANDARD_DEVIATION%SD (   V-  �       CORRELATION_COEFFICIENT *   �-  H   a   CORRELATION_COEFFICIENT%N /   -.  H   a   CORRELATION_COEFFICIENT%MEAN_X /   u.  H   a   CORRELATION_COEFFICIENT%MEAN_Y .   �.  �   a   CORRELATION_COEFFICIENT%X_VEC .   y/  �   a   CORRELATION_COEFFICIENT%Y_VEC -   50  H   a   CORRELATION_COEFFICIENT%CORR 